home *** CD-ROM | disk | FTP | other *** search
/ SGI SNMP Access to HP-UX MIB 1.1.2 / SGI SNMP Access to HP-UX MIB 1.1.2.iso / dist / pcp_eoe.idb / usr / sbin / pmafm.z / pmafm
Text File  |  1998-04-24  |  12KB  |  566 lines
  1. #!/bin/sh
  2. #Tag 0x00010D0C
  3. #
  4. # Copyright 1995, Silicon Graphics, Inc.
  5. # ALL RIGHTS RESERVED
  6. # 
  7. # UNPUBLISHED -- Rights reserved under the copyright laws of the United
  8. # States.   Use of a copyright notice is precautionary only and does not
  9. # imply publication or disclosure.
  10. # 
  11. # U.S. GOVERNMENT RESTRICTED RIGHTS LEGEND:
  12. # Use, duplication or disclosure by the Government is subject to restrictions
  13. # as set forth in FAR 52.227.19(c)(2) or subparagraph (c)(1)(ii) of the Rights
  14. # in Technical Data and Computer Software clause at DFARS 252.227-7013 and/or
  15. # in similar or successor clauses in the FAR, or the DOD or NASA FAR
  16. # Supplement.  Contractor/manufacturer is Silicon Graphics, Inc.,
  17. # 2011 N. Shoreline Blvd. Mountain View, CA 94039-7311.
  18. # 
  19. # THE CONTENT OF THIS WORK CONTAINS CONFIDENTIAL AND PROPRIETARY
  20. # INFORMATION OF SILICON GRAPHICS, INC. ANY DUPLICATION, MODIFICATION,
  21. # DISTRIBUTION, OR DISCLOSURE IN ANY FORM, IN WHOLE, OR IN PART, IS STRICTLY
  22. # PROHIBITED WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SILICON
  23. # GRAPHICS, INC.
  24. #
  25. # $Id: pmafm,v 2.8 1998/01/05 19:44:03 kenmcd Exp $
  26.  
  27. # Some degree of paranoia here ...
  28. PATH=/usr/sbin:/usr/bsd:/sbin:/usr/bin:/bin:/usr/pcp/bin
  29. export PATH
  30.  
  31. _usage()
  32. {
  33.     echo "Usage: pmafm folioname [command [arg ...]]"
  34. }
  35.  
  36. _help()
  37. {
  38.     echo \
  39. 'PCP Archive Folio Manager
  40.  
  41. Commands:
  42.   archives        - select all archives
  43.   archives N[,...]    - select archives with these ordinal numbers
  44.   archives name[,...]    - select archives with these names
  45.   check            - integrity check for folio
  46.   help            - this message
  47.   hosts         - select archives for all hosts (the default)
  48.   hosts hostname[,...]    - select archives for just these hosts
  49.   list [verbose]    - display folio contents
  50.   quit            - exit
  51.   remove        - echo the sh(1) command to delete all files
  52.               associated with the folio
  53.   repeat tool [arg ...]    - execute a known PCP tool on each archive in turn
  54.   replay        - replay archives using the tool that created the folio
  55.   [run] tool [arg ...]    - execute a known PCP tool on the selected archives
  56.   selections        - list selected archives
  57.   
  58. Selection:
  59.   If specified, both the "archives" and the "hosts" selection criteria
  60.   are applied as a conjunction.'
  61. }
  62.  
  63. if [ $# -lt 1 ]
  64. then
  65.     _usage 1>&2
  66.     exit 1
  67. fi
  68.  
  69. if [ ! -f $1 ]
  70. then
  71.     if [ "X$1" = "X-?" ]
  72.     then
  73.     _usage 1>&2
  74.     echo
  75.     _help 1>&2
  76.     else
  77.     echo "pmafm: cannot open folio \"$1\"" 1>&2
  78.     fi
  79.     exit 1
  80. fi
  81.  
  82. _FOLIOPATH=`dirname $1`
  83. if [ "$_FOLIOPATH" = "." ]
  84. then
  85.     _FOLIOPATH=""
  86. elif [ -d $_FOLIOPATH ]
  87. then
  88.     _TMP=`pwd`
  89.     cd $_FOLIOPATH
  90.     _FOLIOPATH=`pwd`/
  91.     cd $_TMP
  92. fi
  93. _FOLIO="$1"
  94. _FOLIONAME=`basename $_FOLIO`
  95.  
  96. # if /etc/magic was safe on all IRIXes and included the PCP file typing
  97. # extensions, could use file(1) instead of grep(1)
  98. #
  99. if grep '^PCPFolio' $1 >/dev/null && grep '^Version:' $1 >/dev/null
  100. then
  101.     :
  102. else
  103.     echo "pmafm: \"${_FOLIOPATH}$_FOLIONAME\" is not in PCP archive folio format" 1>&2
  104.     exit 1
  105. fi
  106.  
  107. _HOSTS=""
  108. _ALL_HOSTS=`nawk <$_FOLIO '$1 == "Archive:" { printf " %s",$2 }'; echo | sort -u`
  109. _ARCHIVES=""
  110. _ALL_ARCHIVES=`nawk <$_FOLIO '$1 == "Archive:" { printf " %s",$3 }'; echo`
  111. _DEBUG=false
  112. export _DEBUG _FOLIO _HOSTS _ALL_HOSTS _ARCHIVES _ALL_ARCHIVES
  113.  
  114. _SINGLE=""
  115. _MULTI=""
  116. _REPLAY=""
  117. _SPECIAL=""
  118.  
  119. # collect names of known tools, and "run" scripts for each
  120. #
  121. for config in /var/pcp/config/pmafm/* $HOME/.pcp/pmafm/*
  122. do
  123.     if [ "$config" = '/var/pcp/config/pmafm/*' ]
  124.     then
  125.     echo "pmafm: Warning: no PCP tool configurations in /var/pcp/config/pmafm/"
  126.     elif [ "$config" = "$HOME/.pcp/pmafm/"'*' ]
  127.     then
  128.     # no user defined list of tools
  129.     :
  130.     else
  131.     SINGLE=""
  132.     MULTI=""
  133.     REPLAY=""
  134.     SPECIAL=""
  135.     . $config
  136.     [ ! -z "$SINGLE" ] && _SINGLE="$_SINGLE $SINGLE"
  137.     [ ! -z "$MULTI" ] && _MULTI="$_MULTI $MULTI"
  138.     [ ! -z "$REPLAY" ] && _REPLAY="$_REPLAY $REPLAY"
  139.     [ ! -z "$SPECIAL" ] && _SPECIAL="$_SPECIAL $SPECIAL"
  140.     fi
  141. done
  142.  
  143. tmp=/tmp/$$
  144. trap "rm -f $tmp; exit" 0 1 2 3 15
  145.  
  146. _check_file()
  147. {
  148.     if [ ! -f "$1" ]
  149.     then
  150.     echo "No such file: $1" >>$tmp
  151.     else
  152.     dd ibs=1 count=7 if="$1" 2>/dev/null | od -X | nawk '
  153. NR == 1 && $2 == "00000084" && $3 == "50052600" { exit 0 }
  154.                         { exit 1 }'
  155.     if [ $? -eq 0 ]
  156.     then
  157.         :
  158.     else
  159.         echo "Not a PCP archive file: $1" >>$tmp
  160.     fi
  161.     fi
  162. }
  163.  
  164. _check()
  165. {
  166.     sed -n '/^Archive:/p' <$_FOLIO \
  167.     | while read xxx host arch
  168.     do
  169.     rm -f $tmp
  170.     path=`_fix_arch_path "" $arch`
  171.     echo "Archive: $path ... \c"
  172.     _check_file $path.index
  173.     _check_file $path.meta
  174.     _check_file $path.0
  175.     if [ ! -s $tmp ]
  176.     then
  177.         realhost=`pmdumplog -l $path | sed -n -e '/^Performance metrics/s/.* host //p'`
  178.         [ "X$host" != "X$realhost" ] && \
  179.         echo "Hostname mismatch: folio=$host archive=$realhost" >>$tmp
  180.     fi
  181.     if [ -s $tmp ]
  182.     then
  183.         echo "Errors"
  184.         sed -e 's/^/    /' $tmp
  185.     else
  186.         echo "OK"
  187.     fi
  188.     done
  189. }
  190.  
  191. _dir()
  192. {
  193.     echo
  194.     echo "PCP Archive Folio: $_FOLIONAME"
  195.     [ ! -z "$_FOLIOPATH" ] && echo "Folio Directory: $_FOLIOPATH"
  196.     nawk <$_FOLIO '
  197. $1 == "Created:"    { print; next }
  198. $1 == "Creator:"    { print; next }'
  199.     echo
  200.     echo "Ordinal Hostname             Archive Basename"
  201.     i=1
  202.     sed -n '/^Archive:/p' $_FOLIO \
  203.     | while read xxx host archive
  204.     do
  205.     printf "  [%3s] %-20s %s\n" $i $host $archive
  206.     [ "X$1" = "Xverbose" ] && pmdumplog -l `_fix_arch_path "" $archive` | sed -e 's/^/    /'
  207.     i=`expr $i + 1`
  208.     done
  209. }
  210.  
  211. # $1 is separater
  212. #
  213. _fix_arch_path()
  214. {
  215.     sep="$1"
  216.     shift
  217.     archlist=""
  218.     for arch
  219.     do
  220.     if [ ! -z "$_FOLIOPATH" ]
  221.     then
  222.         case $arch
  223.         in
  224.         /*)
  225.             ;;
  226.         *)
  227.             arch=${_FOLIOPATH}$arch
  228.             ;;
  229.         esac
  230.     fi
  231.     if [ -z "$archlist" ]
  232.     then
  233.         archlist="${arch}"
  234.     else
  235.         archlist="${archlist}${sep}${arch}"
  236.     fi
  237.     done
  238.  
  239.     echo $archlist
  240. }
  241.  
  242. _get_archlist()
  243. {
  244.     if [ -z "$_ARCHIVES" ]
  245.     then
  246.     archlist="$_ALL_ARCHIVES"
  247.     else
  248.     archlist="$_ARCHIVES"
  249.     fi
  250.  
  251.     if [ ! -z "$_HOSTS" ]
  252.     then
  253.     newlist=""
  254.     for arch in $archlist
  255.     do
  256.         host=`nawk <$_FOLIO '$3 == "'$arch'" { print $2; exit }'`
  257.         if echo "$_HOSTS " | grep " $host " >/dev/null
  258.         then
  259.         newlist="$newlist $arch"
  260.         fi
  261.     done
  262.     archlist=$newlist
  263.     fi
  264.  
  265.     echo $archlist
  266. }
  267.  
  268. _replay()
  269. {
  270.     _CREATOR=""
  271.     _REPLAY_CONFIG=""
  272.     eval `sed -n <$_FOLIO -e '/^Creator:/{
  273. s/Creator:[     ]*//
  274. s/^/_CREATOR=/
  275. s/[     ][     ]*/ _REPLAY_CONFIG=/
  276. p
  277. }'`
  278.     if [ -z "$_CREATOR" ]
  279.     then
  280.     echo "Error: cannot determine folio creator"
  281.     return
  282.     else
  283.     if [ ! -z "$_REPLAY_CONFIG" ]
  284.     then
  285.         _REPLAY_CONFIG=`_fix_arch_path "" "$_REPLAY_CONFIG"`
  286.         echo "Configuration File: $_REPLAY_CONFIG"
  287.         if [ ! -f "$_REPLAY_CONFIG" ]
  288.         then
  289.         echo "Error: cannot find Configuration File"
  290.         return
  291.         fi
  292.     fi
  293.     fi
  294.  
  295.     if echo "$_REPLAY " | grep " $_CREATOR " >/dev/null
  296.     then
  297.         if [ -z "$_REPLAY_CONFIG" ]
  298.     then
  299.         _run $_CREATOR
  300.     else
  301.         _run $_CREATOR -c $_REPLAY_CONFIG
  302.     fi
  303.     else
  304.     echo "Error: I don't know how to replay a folio created by \"$_CREATOR\""
  305.     echo "       ... choose a PCP tool and use the \"run\" command to replay"
  306.     fi
  307. }
  308.  
  309. _known()
  310. {
  311.     echo "Known PCP tools:"
  312.     echo "$_SINGLE$_MULTI" \
  313.     | sed -e 's/^ *//' \
  314.     | tr ' ' '\012' \
  315.     | sort \
  316.     | fmt \
  317.     | sed -e 's/^/    /'
  318. }
  319.  
  320. _run()
  321. {
  322.     tool=$1
  323.     tool_basename=`basename $tool`
  324.     shift
  325.     archlist=`_get_archlist`
  326.     if [ -z "$archlist" ]
  327.     then
  328.     echo "Error: no selected archives"
  329.     return
  330.     fi
  331.  
  332.     if $_REPEAT || ( echo "$_SINGLE " | grep " $tool_basename " >/dev/null )
  333.     then
  334.     n_arch=`echo $archlist | wc -w | sed -e 's/  *//g'`
  335.     [ "$n_arch" -gt 1 ] && echo "Note: running $tool serially, once per archive"
  336.     for arch in $archlist
  337.     do
  338.         nawk <$_FOLIO '$3 == "'$arch'" { printf "Host: %s",$2; exit }'
  339.         path=`_fix_arch_path "" "$arch"`
  340.         echo " Archive: $path"
  341.         # arrgh ... special case for pmdumplog where -a is something else
  342.         # and archive comes last ... sigh
  343.         #
  344.         _done=false
  345.         if [ ! -z "$_SPECIAL" ]
  346.         then
  347.         for special in $_SPECIAL
  348.         do
  349.             if [ "$tool_basename" = "$special" ]
  350.             then
  351.             $tool $* $path
  352.             _done=true
  353.             break
  354.             fi
  355.         done
  356.         fi
  357.  
  358.         if $_done
  359.         then
  360.         :
  361.         else
  362.         $tool -a $path $*
  363.         fi
  364.     done
  365.     elif echo "$_MULTI " | grep " $tool_basename " >/dev/null
  366.     then
  367.     $tool -a `_fix_arch_path "," $archlist` $*
  368.     elif [ "X$tool" = "X_show_me_" ]
  369.     then
  370.     for arch in $archlist
  371.     do
  372.         path=`_fix_arch_path "" "$arch"`
  373.         echo "Archive: $path"
  374.     done
  375.     else
  376.     echo "Sorry, don't know how to run \"$tool\" ..."
  377.     fi
  378. }
  379.  
  380. _MORE=true
  381. while $_MORE
  382. do
  383.     if [ $# -gt 1 ]
  384.     then
  385.     shift
  386.     cmd="$1"
  387.     shift
  388.     args=$*
  389.     _MORE=false
  390.     else
  391.     echo "pmafm> \c"
  392.     read cmd args
  393.     if [ $? -ne 0 ]
  394.     then
  395.         echo
  396.         break
  397.     elif [ -z "$cmd" ]
  398.     then
  399.         continue
  400.     fi
  401.     fi
  402.  
  403.     _REPEAT=false
  404.     if echo "$_SINGLE $_MULTI " | grep " $cmd " >/dev/null
  405.     then
  406.     # recognized command
  407.     _run $cmd $args
  408.     else
  409.     case $cmd
  410.     in
  411.  
  412.         a|ar|arch|archi|archiv|archive|archives)
  413.             case $args
  414.             in
  415.             '')
  416.                 _ARCHIVES=""
  417.                 ;;
  418.             *)
  419.                 _ARCHIVES=""
  420.                 for arch in `echo $args | sed -e 's/,/ /g'`
  421.                 do
  422.                 _TMP=`nawk <$_FOLIO '
  423.     $1 == "Archive:"    { if ("'$arch'" == $3) {
  424.                 print $3
  425.                 exit
  426.                   }
  427.                   i++
  428.                   if ("'$arch'" == i) {
  429.                 print $3
  430.                 exit
  431.                   }
  432.                 }'`
  433.                 if [ -z "$_TMP" ]
  434.                 then
  435.                     echo "Warning: archive \"$arch\" not in folio ... ignored"
  436.                 else
  437.                     _ARCHIVES="$_ARCHIVES $_TMP"
  438.                 fi
  439.                 done
  440.                 ;;
  441.             esac
  442.             ;;
  443.  
  444.         c|ch|che|chec|check)
  445.             _check
  446.             ;;
  447.  
  448.         d|de|deb|debu|debug)
  449.             if $_DEBUG
  450.             then
  451.             _DEBUG=false
  452.             set -
  453.             else
  454.             _DEBUG=true
  455.             set -x
  456.             fi
  457.             ;;
  458.  
  459.         \?|he|hel|help)
  460.             _help
  461.             ;;
  462.  
  463.         ho|hos|host|hosts)
  464.             case $args
  465.             in
  466.             '')
  467.                 _HOSTS=""
  468.                 ;;
  469.             *)
  470.                 _HOSTS=""
  471.                 for host in `echo $args | sed -e 's/,/ /g'`
  472.                 do
  473.                 if echo "$_ALL_HOSTS " | grep " $host " >/dev/null
  474.                 then
  475.                     _HOSTS="$_HOSTS $host"
  476.                 else
  477.                     echo "Warning: host \"$host\" not in folio ... ignored"
  478.                 fi
  479.                 done
  480.                 ;;
  481.             esac
  482.             ;;
  483.  
  484.         l|li|lis|list)
  485.             case $args
  486.             in
  487.             v|ve|ver|verb|verbo|verbos|verbose)
  488.                 _dir verbose
  489.                 ;;
  490.             '')
  491.                 _dir
  492.                 ;;
  493.             *)
  494.                 echo "Illegal option \"$args\" ... ignored"
  495.                 _dir
  496.                 ;;
  497.             esac
  498.             [ ! -z "$_HOSTS" ] && echo "Host Selections:$_HOSTS"
  499.             [ ! -z "$_ARCHIVES" ] && echo "Archive Selections:$_ARCHIVES"
  500.             ;;
  501.  
  502.         q|qu|qui|quit)
  503.             break
  504.             ;;
  505.  
  506.         ru|run|repe|repea|repeat)
  507.             case $cmd
  508.             in
  509.             repe|repea|repeat)
  510.             _REPEAT=true
  511.             ;;
  512.             esac
  513.             tool=`echo "$args" | sed -e 's/ .*//'`
  514.             tool_basename=`basename $tool`
  515.             if [ -z "$tool" ]
  516.             then
  517.             echo "Error: missing PCP tool name"
  518.             _known
  519.             elif [ "X$tool" = 'X?' ]
  520.             then
  521.             _known
  522.             elif echo "$_SINGLE $_MULTI " | grep " $tool_basename " >/dev/null
  523.             then
  524.             _run $args
  525.             else
  526.             echo "Error: Unknown PCP tool: $tool"
  527.             _known
  528.             fi
  529.             ;;
  530.  
  531.         rem|remo|remov|remove)
  532.             [ ! -z "$_FOLIOPATH" ] && echo "( cd $_FOLIOPATH; \c"
  533.             echo "rm -f $_FOLIONAME\c"
  534.             nawk <$_FOLIO '$1 == "Creator:" && NF > 2    { printf " %s",$3; exit }'
  535.             for arch in $_ALL_ARCHIVES
  536.             do
  537.             echo " $arch.meta $arch.index\c"
  538.             path=`_fix_arch_path "" $arch`
  539.             pmdumplog -t $path 2>/dev/null \
  540.             | nawk '/^[0-9][0-9]:/ { print $2 }' \
  541.             | sort -u \
  542.             | while read vol
  543.             do
  544.                 echo " $arch.$vol\c"
  545.             done
  546.             done
  547.             [ ! -z "$_FOLIOPATH" ] && echo " )\c"
  548.             echo
  549.             ;;
  550.  
  551.         repl|repla|replay)
  552.             _replay
  553.             ;;
  554.  
  555.         s|se|sel|sele|selec|select|selecti|selectio|selection|selections)
  556.             _run _show_me_
  557.             ;;
  558.  
  559.         *)
  560.             echo "Unknown command \"$cmd\" ... enter \"help\" for more information"
  561.             ;;
  562.     esac
  563.     fi
  564. done
  565.  
  566.